home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Presentations / Presentations ’96 / Sessions ’96 / TCL and New Technologies / QDGX ƒ / Source / CApp.cp < prev    next >
Encoding:
Text File  |  1996-06-13  |  4.1 KB  |  146 lines  |  [TEXT/KAHL]
  1. /******************************************************************************
  2.  CApp.cp
  3.  
  4.                 My Application Class
  5.     
  6.     Copyright © 1995 My Software Inc. All rights reserved.
  7.  
  8.     Generated by Visual Architect™ 4:16 PM Wed, Dec 13, 1995
  9.  
  10.     This file is only generated once. You can modify it by filling
  11.     in the placeholder methods and adding any new methods you wish.
  12.  
  13.     If you change the name of the application, a fresh version of this
  14.     file will be generated. If you have made any changes to the file
  15.     with the old name, you will have to copy those changes to the new
  16.     file by hand.
  17.  
  18.  ******************************************************************************/
  19.  
  20. #include "CApp.h"
  21.  
  22. #include <CDialog.h>
  23. #include <TCLForceReferences.h>
  24.  
  25. //#include "AppCommands.h"            // Remove comments if DoCommand overridden
  26.  
  27. TCL_DEFINE_CLASS_M1(CApp, x_CApp);
  28.  
  29. #define kMyGXHeapSize        375
  30.  
  31.  
  32. /**** C O N S T R U C T I O N / D E S T R U C T I O N   M E T H O D S ****/
  33.  
  34.  
  35. /******************************************************************************
  36.  ICApp
  37.  
  38.         Initialize an Application.
  39.  
  40.  ******************************************************************************/
  41.  
  42. void    CApp::ICApp()
  43.  
  44. {
  45.         // The values below are:
  46.         //
  47.         //     extraMasters        - The number of additional master pointer blocks
  48.         //                          to be allocated.
  49.         //     aRainyDayFund        - The total amount of reserved memory. When
  50.         //                          allocation digs into the rainy day fund, the
  51.         //                          user is notified that memory is low. Set this
  52.         //                          value to the sum of aCriticalBalance plus
  53.         //                          aToolboxBalance plus a fudge for user warning.
  54.         //     aCriticalBalance    - The part of the rainy day fund reserved for
  55.         //                          critical operations, like Save or Quit. Set
  56.         //                          this value to the memory needed for the largest
  57.         //                          possible Save plus aToolboxBalance. This
  58.         //                          memory will only be used if SetCriticalOperation()
  59.         //                          is set TRUE or if RequestMemory()/SetAllocation()
  60.         //                          is set FALSE (kAllocCantFail).
  61.         //     aToolboxBalance    - The part of the rainy day fund reserved for
  62.         //                          ToolBox bozos that bomb if a memory request fails.
  63.         //                          This memory is used unless RequestMemory()/
  64.         //                          SetAllocation() is set TRUE (kAllocCanFail).
  65.         //                          Almost all TCL memory allocation is done with
  66.         //                          kAllocCanFail, and yours should be, too. The
  67.         //                          default 2K is probably enough.
  68.  
  69.     Ix_CApp(4, 24000L, 20480L, 2048L);
  70.     
  71.         // Initialize your own application data here.
  72.     long    gxVersion;
  73.     FailOSErr(Gestalt(gestaltGraphicsVersion, &gxVersion));
  74.     
  75.     // Create our GX graphics client.
  76.     FailNIL(mGXClient = GXNewGraphicsClient(nil, kMyGXHeapSize * 1024L, 0L));
  77.  
  78.     //GXEnterGraphics();
  79. }
  80.  
  81.  
  82. void CApp :: Exit(void)
  83. {    
  84.     //GXExitGraphics();
  85.     
  86.     GXDisposeGraphicsClient(mGXClient);
  87. }
  88.  
  89. /******************************************************************************
  90.  ForceClassReferences    {OVERRIDE}
  91.  
  92.     Reference classes that do object I/O or are created only
  93.     by new_by_name.
  94.  ******************************************************************************/
  95.  
  96. void CApp::ForceClassReferences(void)
  97.  
  98. {
  99.     x_CApp::ForceClassReferences();
  100.     
  101.         // Insert your own class references here
  102.         // by calling TCL_FORCE_REFERENCE for each class
  103.         // See x_CApp.cp
  104. }
  105.  
  106.  
  107. /**** C O M M A N D   M E T H O D S ****/
  108.  
  109.  
  110. /******************************************************************************
  111.  DoCommand    {OVERRIDE}
  112.  
  113.     Handle application commands
  114.  ******************************************************************************/
  115.  
  116. void CApp::DoCommand(long theCommand)
  117.  
  118. {
  119.     switch (theCommand)
  120.     {
  121.  
  122.             // Insert your command cases here
  123.  
  124.         default:
  125.             x_CApp::DoCommand(theCommand);
  126.             break;
  127.     }
  128. }
  129.  
  130.  
  131. /******************************************************************************
  132.  GetDocTypeFromDialog
  133.  
  134.     Get the document type from the dialog. If you have multiple
  135.     document types, you must override this function to extract
  136.     the type from the dialog state. (The dialog has been executed
  137.     and OK'd by the user.) If you do not have multiple document
  138.     types, you can remove this function.
  139.  ******************************************************************************/
  140.  
  141. OSType CApp::GetDocTypeFromDialog(CDialogDirector *dialog)
  142.  
  143. {
  144.     return 0;
  145. }
  146.